تصغير أو تكبير كل النوافذ المفتوحة بجهازك
أكتب التالي في قسم التصاريح
Private Declare Function SendMessage Lib "user32" Alias _Private Declare Function FindWindow Lib
"user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal
lpWindowName _
As String) As Long
Dim lng_Hwnd&
أضف زر امر واكتب التالي في حدث الضغط علية
Private Sub
Command1_Click()
'الحصول على مقبض النافذة
lng_Hwnd& =
FindWindow("Shell_TrayWnd", vbNullString)
'ارسال الرسالة تصغير
الكل
SendMessage lng_Hwnd&, &H111, 419, 0&
End Sub
أضف زر امر اخر واكتب التالي في حدث الضغط علية
Private Sub
Command2_Click()
'تراجع عن تصغير الكل
lng_Hwnd& =
FindWindow("Shell_TrayWnd", vbNullString)
SendMessage lng_Hwnd&,
&H111, 416, 0&
End Sub